home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / AmigaBasicProgs / Weird.MSB (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-05  |  256b  |  18 lines
  1. begin:
  2. FOR x=20 TO 500 STEP 25
  3. GOSUB go
  4. NEXT x
  5.  
  6. FOR x=500 TO 20 STEP -25
  7. GOSUB go
  8. NEXT x
  9. GOTO begin
  10.  
  11. go:
  12. SOUND x,1,255,0
  13. SOUND 500-x+100,1,255,1
  14. SOUND x+200,1,255,3
  15. SOUND 500-x+300,1,255,2
  16. RETURN
  17.  
  18.